UUU UUU  VVV VVV 111 RRRRRRRRRRRR 000000000 MMM MMM 
UUU  VVV VVV 111 RRRRRRRRRRRR 000000000 MMM MMM 

UUU UUU  VVV VVV 111 RRRRRRRRRRRR 000000000 MMM MMM 
UUU UUU  VVV VVV 1171111 RRR RRR 000 000 MMMMMM = =6>MMMMMM 
UUU  VVV VVV 111111 RRR RRR 000 000 MMMMMM = 6MMMMMM 

UUU UUU  VVV VVV 111111 RRR RRR 000 000 MMMMMM ~=6MMMMMM 
UUU UUU  VVV VVV 111 RRR RRR 000 000 MMM MMM MMM 
UU VVV VVV 111 RRR RRR 000 000 MMM MMM = MMM 

UUU UUU  VVV VVV 111 RRR RRR 000 000 MMM MMM = =6MMM 
UU VV VVV 111 RRRRRRRRRRRR 000 000 MMM MMM 

UUU UUU  VVV VVV 111 RRRRRRRRRRRR 000 000 MMM MMM 
UUU UUU VVV VVV 111 RRRRRRRRRRRR 000 000 MMM MMM 
UUU UUU  ~VVV VVV 111 RRR = RRR 000 000 MMM MMM 
UUU UUU  VVV VVV 111 RRR = =RRR 000 000 MMM MMM 
UUU UUU 111 RRR = RRR 000 000 MMM MMM 
UUU UUU vVvvV VV 111 RRR RRR 000 000 MMM MMM 
UUU UUU VvVsOVVV 111 RRR RRR 000 000 MMM MMM 
UUU UUU VvV OV 111 RRR RRR 000 000 MMM MMM 
UU 1911711711 RRR RRR 000000000 MMM MMM 
UUUUUUUUUUUUUUU VVV 117171111 RRR RRR 000000000 MMM MMM 
UUUUUUUUUUUUUUU VVV 117111111 RRR RRR 000000000 MMM MMM 
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1 fitle VMB_MICROVAX_I 
§ -ident /V01.0-00/ 
: WITITIIITIIITITITITITI TIT TTITITITITTITiTi Titi LTT TTT tii Titi Titi ii iil 
3* ‘e 
8 :* Seoye) ht (c) 1984 ® 
$8 :* by DIGITAL Equipment Corporation, Maynard, Mass. 
099 : :® This software is furnished under a License and may be used and copied * 
10 ;* onl in accordance with ed terms of such License and with the * 
$8 11 ;* inciusion of the above copyright notice. This software or any other * 
8 \ 3* copies thereof may not be provided or otherwise made available to any * 
0 15 ;* other person. No title to and ownership of the software is hereby * 
4 13 :* transferred. * 
e id 
0900 16 ;* The information in this software is subject to change without notice * 
00 17 ;* and should not be construed as a commitment by DIGITAL Equipment * 
44 18 :* Corporation. * 
3 ® 
0000 0 ;* DIGITAL assumes no responsibility for the use or reliability of its * 
B006 1 ° software on equipment which is not supplied by DIGITAL. * 
. ® 
44 § ITTITITIIIITITI TTI TTIIT IIL ITITI TILT Titi tii titi i titi tite LLL it 
4; 
4464 5 ; Facility: 
8898 ; : Bootstrap ROM code for the MicroVAX I. 
9009 ; > Abstract: 
44 1: This module contains a hybrid bootstrap for VMS, ELN, diagnostics 
000 § : and other systems that is a combination of the other VAX hardware 
0000 ; boot functions and VMB's traditional function. It was edited down 
0000 4; from the VMS VMB and then enhanced to perform the priority ordered 
8608 2 3 boot. 
4 i : Author: R. Heinen 
000 9 : Date: July 1983 
000 at 
0000 4g $bdtdef sdefine boot driver descriptor 
00 4 $bqodef sdefine boot driver offsets 
44 $btddef sdefine boot device types 
45 Sihddef :define VMS image header 
000 $6 Siodef sdefine 1/0 function codes 
36 4 Sipldef sipl's 
10 3 $ndtdef sdefine adapter types 
bo 4 prdef processor registers 
0 0 $pruvidef processor registers for MicroVAX I 
; 1 $rpbdef ; 
§ $ssdef zdefine VMS status codes 
Z $vmbargdef define VMB arguments 
5 
$ : define some new btd symbols 
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btd$k_prom = $ 
btd$k_qna = 9 


FRAT ERATE AAAAAAREARAAE REAR AAAAAAAAAAAAAAARAKAAAATE ee 


; define a macro to define boot driver names etc. 


NOUS Wt OOow 


macro boot_device name,h_unit,pcsr,type,rtn,711 
z /name/ 
ebyte h_unit 


~ 
+ 
. 
a 
wo 
o 


° type 
- long pcee sen? 8. *0_s9ete 
rtn=L 


; define macros to aid with error message printing 


peers fatal_message code 
: #ss$_'code,r0 


brw fatal_error 


«macro msg_def mname,txt 
“yard ss3_‘mname 


-word a_'mname-. 
-Save_psect 
-psect $$$$10boot, byte 
last_msg =. 
a_'mname: 
easciz \txt \ 
“restore_psect 


Rat Pe beth tt pd ty te tet EPR BP AWS BF BY A ee 
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°o 
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‘word lLast_msg-. 
-endc 
-endm 


: define local data structure offsets 


, define boot device desc structure 

$Sdefini b 
bd_l_name: x 
bd_b_high_unit: . 
bd_b_type: ‘ 


—— | “DOOOOOOOOoOo 
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v01.0 


30000008 


20000000 


00000000 
44d 44 
0000420 
00004600 


00005000 


00000 
00000 


oo 
oo 
Las red 


00000004 
00000060 
00000 5 
0000002 


00000006 
0000000 


20001440 


OOoOQCoQoQoooooooooooo 
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COOCCCOCOCQOOOCOOCOCOmMm > Oo 
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SSssss 
OOoOooooooooooooosoooooosoo 
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10-AUG-1984 1 

4-MAR=-1984 1 

a_csr: oblkl 1 
routine: obLRL 1 


“$defend bd 


: define local data constants 


phy_a_io_space = *x20000000 
; define extents 

k_max_memory_pages = 8192 
k_max_io_pages = 127 


: define addresses in 64K segment 


F 
19 
1 
4 
§ 
4 
5 
; 
5 
0 
1 
§ 
4 
3 3 
? 
8 k_rom_code_addr 
9 k_scb_addr 
40 
2 
a3 
a4 
$2 
a? 
48 
49 
50 
2) 
38 
54 
55 
6 
i! 
39 
60 


_rpb_addr = 0 
= *x200 
sc = *x4200 
k_pfn_map_addr = *x4600 
k_secondary_boot_addr = *x5000 


: define MicroVAX I machine check codes 


kaparit -error 
k_bus.timeout 


1 
2 


: define scb vectors used here 


scb_a_mcheck 
scb_a_write_timeout 
scb_a_breakpoint 
scb_a_trace_trap 


as 


+H 
x28 


> define bits in MicroVAX I switch pack 
switch_v_Q $ 
switch_v_d 


61 
88 
ro 
68 » 
3 
‘ 


VSS 
isk_ 


boot 


et et st 4 = 4 = = ot SS SS = St = = SS SS 2 S 2 8 a ss ss Ss 
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: define MSV-11 Memory controller values 


msvll_csr_base = “x1440 + phy_a_io_space 


ve 
5 VMBUVAX1.MAR; 1 (1) v¢ 


iphysical address of I/0 space 4 


;max number of pages 
;max pages in one 1/0 transfer 


sallow for 16K 


22 pages 
zstack area of three pages 


used here 


: 1 if normal, 0 if QVSS 
; 1 if normal, 0 if disable disk search 


L 15 
VMB_MICROVAX_] 10-AUG-1984 18:06:04 VAX/VMS Macro V04-00 P 4 
Mis eet Fwye= 13k 18:9G8E  VARAURS Macro, — 


msvil_csr_parity_enable = 1 


; define led values 


ted_senory _ok = “xf0d 
led_boot_inprogress = “xf0 
led_transfer_control = “xfOf 


: define console halt code 


00000001 
SF | 
0 


00000F 05 console_halt = “xf05 


VMB RICROVAK.1 
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-sbttl read write data 
-psect $$$$04boot, long 


vmsfile: of standard secondary 


‘ 

91 

3 ; 

87 ; strings used for file opens 
95 

38 ;Name 

9 -ASCIC /CSYSO.SYSEXEJSYSBOOT.EXE/ ;bootstrap image file. 


a Hs ss 


198 
199 diagfile: Name of standard diagnostic 
200 eASCIC /CSYSO.SYSMAINTIDIAGBOOT.EXE/ ;secondary bootstrap image. 


nameprompt: :Prompt string for secondary 


00 3A 65 6C 69 66 74 6F 6F 42 OA OD eASCIZ <13><10>/Bootfile:/ sboot file name. 


: define two boot device priority lists 


boot_device_List: 
boot _device DUA,3,<*X1468>, btd$k_uda,disk_boot 
no_disk_boot_device_list: 


OEE EERE EERE EF PAWN = SO SOO0O 


NBS eB See eno Shoo oSe 


SOOO COOOOOOOOOOOOOSOOOOOOSOOOOOOOOOOOOOOOOCOoOO 


OSOSOSOSCOCOOOCOCSOSCSOOSOOSOOOSOOOOCOOSoOoOO 
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FUN" O OONAUE WIN — O OONOU Ew 


boot _device PRA,0,<*x0000>,btd$k_prom,prom_boot 
boot_device XQA,0,<*X1920>, btd$k_qna,network_boot 
0000 ° word 0 zsimpTant a zero name 
6 3 
3; define text to correspond to ss$_ values. 
6 2 
6 message_header: 
52 45 2D 46 2D 54 4F 4F 42 $3 OA 98 $ -asciz <13><10>/X%BOOT-F-ERROR, / 
00 20 2C 52 4F 52 f 5 
7F message_base: 
aie 
44 § : define some ss$_ codes that are only used here 
7F ? : 
000. 7F § ss$_memerr = “x800 
? 7F ss$_scbint = *x800 
7F 4 ss$_endint = *x801 
1 or 5 ss$_norom = “x801 
7F $ msg_def nosuchdev,<None of the bootable devices contain a program image> 
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msg_def devass ign. <Device is not present> 
msg_def ngpucht le,<Program image neg found> 
msg_def filestruct,<Invalid boot device file structure> 
msg_def badchksum 
msg_def badfilehdr 
def badirector 


m 
msg_def titRotentg.<invat id program image format> 
oF msg_def endoffile 
sf msg_def badfilename,<Invalid filename> 
A msg_def bufferovf <Progran image does not fit in available memory> 
0 msg_def ctrlerr,<Boot device 1/0 error 


> 
msg_def dev inact -<Fatleg to initialize boot device> 

msg_def devoffline,<Device is offline> 

msg_def memerr,<Memory initialization error> 

msg_def scbint,<Unexpected SCB exception or machine check> 

msg_def endint,<Unexpected exception after starting program image> 
msg_def norom,<No valid ROM image found> 

nosuchnode , <No response from load server> 


0000 -word ;terminate List 


3 writable data 
-ALIGN LONG 


; Parameter List handed from primary boot to secondary boot 

; The first location contains the argument count. It is intended 
; that the secondary boot will know what is in the List based on 
; the argument count and the VMB version number. This means that 
new information should be placed at new offsets even if older 
stuff becomes obsolete. The VMB version number can be used to 
totally change the argument meanings if necessary. 


Sete Se te Ge Ge Ge Ge Se 


baa” be” ba” be’ | “al “al “al “ad “al "ad “al “al ak “Ak AL AL TAL AL ALP AL AL AL Ah dt oe et et at ot oe oe 
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3 
w 
re) 
| 
a 
@ 
—~ 


second_param: 


OOOOCCOCoCooooooooooooooooo 


OO et et tt tt IEOQHOOUT OOOO OVTVIIVTVT STV SVT GV VG AAAAOAOOoOwW® 
CO90909 & LFF EFF LQOOO FF FQQOOCOCOOCOOCOCCOCOCOCOCOV SeE 900 Vw™"w® 
~ 
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00000004 fil$gq_cache == ,+vmb$q_filecache ;FILEREAD cache descriptor 
QOOO00F 4 boo$gb_systemid == .+vmb$b_systemid ;SCS system id 
00 - lon <vabSc argbytcnt=45/ Size of argument List 


rep yabsc org ytcnt-4 ;Reserve space for the arguments 


-byte 
00 5 .endr 
1 file _cache_desc: ;saved goqne desc 
00000000 . long to re-init the cache after error 
00000000 -long 0 


> address of the RPB as a global 


boo$gl_rpbbase:: 
- lon 0 


00000000 9g 


Oo 

So 

S 

S 

m 
COOCOCOCOOCOCOOCOCOOOOSOOOOO OOOO OOOOCOOOOOOSOOOOOOOOoOO 


ee a ed ed ed ed ed eed ed ed eed = HOOD 


OOOO 0000000000900 0909090 NINN 
Wn w 
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: machine check support 
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11 
11 
0000011¢ 011 
11C 
11¢ 
11¢ 
11¢ 
11¢ 
11¢ 
00000000 011¢ 
00 0120 
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read write data 


Cc 


; error device name 


oot_device_name: 
-long 9Q 
-byte 0 


OODOCOCOooO 
UPwn-O 
o Settee 


pogttnuss 


° 
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VAX/VMS Macro v04-00 
VMBUVAX1.MAR;1 


zcontains 0 or that address to 


jtransfer to after a machine check 
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esbttl boot code 
ROM_START 
functional description: 


This code is entered after the MicroVAX I microcode has completed its 
restart/boot/halt sequence. It runs at IPL 31, in Kernel mode on the 
interrupt stack. The action is to initialize an RPB, setup a bitmap of 
useable memory pages and load the next part of the system boot based on 
the input flag settings. 


If the inputs include a specific boot device name that device and only 
that device is booted. On the otherhand, if no specific boot device 

is specified then a erserity ordered sequence of boot devices is tried. 
(In this case RO will be 0 or contain all blanks. 


As follows: 


Other disks 
ve (See below for an explanation of how the ROM is found.) 


If none of these devices provide a bootstrap then a message is 
displayed followed by a HALT. 


ROM [Mery are alban by the boot memory search. A ROM system must 
be aligned on a 4KB boundary and contain a foot print which is the same 
as the second part of the boot block described below. 


If the boot is from a mass storage device then for each valid volume 

that is found, the volume is searched as a Files-11 volume and then 

the secondary boot image is found. If the volume is not a Files-11 volume 
then block 0 of the volume is read and checked to see if it meets the 
standard for the boot block format. If not, the volume is not used and the 
next volume is tried unless a specific device was specified by the user. 


The boot block format is: 


CO NAUES WN OOO NAUE WN $$ O OONAUE WN O OONAUS WN -O0OOn 


Sete Se Se Se Se Ge Se Se Se Se Ge Se Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Se Ge Ge Ge Ge Ge Ge 
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ANI AINI AIA AAAI NIAAA A AAA NAAN AANA NIAAA ANNAN AANA 


folele le alee lelelelelalalelelelelelelelolelelolelelelelelelelelelelelolelelelelalelelelelelololeolelelelololelo a} 
aban and band anh ad ad cad aad aad cx ab and aid ath aD nd ax en cad a ex ac on ee at aad cnt a een eel eae et et a coc ene ee en ee co ceed ed ee ed eb ac ech ch ne anal 
ee aed ced ed ed ceed ed ee ee ee ee ce cee ed a a ed ce a ce ae ee ee ee ee a ce a ace cd ca cd ee a ce a cc ce ce ce ee a a cl ce el ec a el ec ce ed cl a 


: 
: 
: 
: 
: 
: 


deosscoe ee ee er + 
BB+0: H 13 n} any value } 
9 peccence $eoeoen- $ooeoone pome acces + 
29 | low LBN | High LBN H 
3 toeoenene. oe $oeoweece $eoooene + 

35 This second part is used for both the boot block and the ROM system. 
55 pameseee $ooces-e $oocoene $oeoeeooe + 
2$ BB+(2*n)+0: : Chk } k } 18(Hex) 
5 possesses poe oe teoceece pewsocse + 
28 {| any value, most Likely 0 : 
5 toeoceoon $ececoss power sen bowccres + 
60 BB+(2*n) +8: : size in blocks of the image i: 
61 enews poccecen poneeces $eesecnne + 
66 BB+(2*n) +12: : load offset H 
6 terse eee tenecene penmence possess + 
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BB+(2*n) +16: H offset into image to start H 
BB+(2*n) +20: : sum of the previous three LW's! 


erememe $e rma eee} or mrerew eH esrewwe sy 


The input bits in R5 can contain a bit that disables the Files-11 search. 
If a Files-11 boot is done then the file booted is either: 


SYSBOOT.EXE = default 
DIAGBOOT.EXE = RS bit setting 
solicited from the console 


Details of how the memory look and the register settings when the 
secondary bootstraps are entered are documented where the exits occur. 


inputs: 


r0 . boot device name in ages 


if none sens tree 
rl = switch pack settings 1 0 is ‘OFF’ 


I or 
s "ON", F 
Bit Meaning 


Enable disk search during bootstrap 


6 1 if VT100/VT200 console, 0 if QVSS video option 
4-5 Halt action 

3 Console Break enabled 

2 Reserved 

0-1 Console baud rate 


RS = software boot control flags from the /N boot command qualifier. 
The following bits are used by this boot ROM code: 
Bit Meaning 


3 RPBSV_BBLOCK. : : 
If set, the attempt to Files-11 boot is skipped 
and only the boot block type boot is done. 


4 RPBSV_DIAG. i 
Dia pow ht boot. Secondary bootstrap is image 
called CSYSMAINTJDIAGBOOT.EXE. 


6 RPBSV_HEADER. 
Image header. Takes the transfer address of the 
secondary aeotst ras snens from that file's 
image header. If RPBSV_HEADER is not set, 
transfers control to the first byte of the 
secondary boot file. 


ee ee ee me a me me me ee ee eB ed ed ed od dd dd 3 3 dd 


PIPIPOPDPNINIPYINIPPIPIPININYDINYIPIPPINIAININPININININININININPOINININININININININD 


ee ee a ee ee ee eed ce ce ee ce ee ae ee ee ee ee ce cc a ce ee ee ec ce ee ce ce me ee ec ae a ee ce ee ee ed ae ce ee ee ae ee a ed ee 
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8 RPBSV_SOLICT. 
File name. Prompt for the name of a 
secondary bootstrap file. 


9 RPBS$V_HALT. 
Halt Before transfer. Executes a HALT 
instruction before transferring controi to the 
secondary bootstrap. 


<31:28> RPBSV_TOPSYS 
Specifies the top level directory number for system 
disks with multiple systems 
The following bits are NOT used by this boot ROM code: 


Bit Meaning 


boot code 


0 RPBS$V_CONV. 
Conversational boot. At various points in the 
system boot procedure, the bootstrap code 
solicits parameters and other input from the 
console terminal. If the DIAG is also on, then 
the eroqpessne supervisor should enter ‘MENU’ 
mode and prompt user for devices to test. 


1 RPBSV_DEBUG. 
booue. If this flag is set, VMS maps the code 
for the XDELTA debugger into the system page 
tables of the running system. 


2 RPBSV_INIBPT. 
Initial wy or If RPBSV_DEBUG is set, VMS 
executes a BPT instruction immediately after 
enabling mapping. 


5 RPBSV_BOOBPT. 
Bootstrap breakpoint. Stops the peta 
and mney pal | bootstraps with a breakpoint 
instruction before testing memory. 


7 RPBSV_NOTEST. , : 
Memory test inhibit. Sets a bit in the PFN bit 
map for each page of memory present. Does not 
test the memory. 


10 RPBSV_NOPFND. 
No PFN deletion (not implemented; intended to 
tell VMB not to read a file from the boot device 
that identifies bad or reserved memory pages 
so that VMB does not mark these pages as valid 
in the PFN bitmap). 


11 RPBSV_MPM, 
Specifies that multi-port memory is to be used 
for the total exec memory requirement. No local 
memory is to be used. This is for tightly-coupled 


Sal tah etek et tek et eh ek ee ek ek ek ee ee 
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+28 ; multi=processing. If the DIAG is also on, then 

14 ; the diagnostic supervisor enters “"AUTOTEST" mode. 

28 ; 12 RPBSV ¥SERER. 

184 : Specifies that multi-port memory should be used in 

485 ; addition to local memory, as though both were one 

tbe ; single pool of pages. 

$38 : 13 RPBSV_MEMTEST 

487 ; Specifies that a more extensive algorithm be used 

488 ; when testing main memory for hardware uncorrectable 

£38 : (RDS) errors. 

491 ; 14 RPBSV_F INDMEM 

138 ; Requests use of MA780 monory if MS780 is insufficient 

re ; for booting. Used for 11/782 installations. 

495 r10 = original PC 

496 ri1 = original PSL 

497 AP = halt code 

498 SP = address of 64K memory block + 200 hex 


; implicit inputs: 


IPL is 31, interrupt stack. 
The first instruction of this code is at SP. 


3 ALL of the system's memory controllers have been 

5 initialized to have parity error detect ON, This. 
: means that the 64K memory block that contains this 
: code has correct aah F The cache is enabled and 
; will continue to be enabled throughout. 


; When the secondary bootstrap code gains control memory will look Like: 


RPB : 
8K of Boot Code + 
boot driver preamble starts at 200 + 
ween ewww we meee wenn ewww wenn wenn enon ne= . (PR$_SCBB value) 


Seer en een ees ee ee meee ew ec ee seme eo e ese eea se} 


++ 


2 peqes of PFN Bit Map described by 
RPB fields 


-~+++ 


+ Secondary boot code image 


; The register contents when control is passed to the secondary 
; bootstrap are: 


R11 = base address of RPB 


ed lt ld eel el el el eel eel cecal ell al eel eel eel eel eel eel el el els elt ell el eal call cel cecal eels eels eels eels els allt eels ceils cel cells els sll ell els cecal ells cecal eis cecal cals ecclesia ells esis alls lls sll 


PRIPOPPIPYIPININIPNINININPINIPIPINININIPYT VPINPIPINININIPYNIPIPYINPINIPYNINININPINYD 


ee me me ee me dd dd od od 3 dd od od = = dd dS 3 


foie ie la le lol ele lolol aleleloleleloleleleleleleleoleleleleleleleleoleleleleleleloleleolelolelololele al ole] =| 


FW O ODA UNE WIN  O OD NAME WN (OO ONAUS WOO 


PVP DV IVI DV PV DV LV SVDVPVPVSUSUSVSUSUSVSUSUSTSTSTSTSTST STS SII UII 
WINNING ERIPPIPIPIPIPINPINIIY 2 OO OO OO SS SK OOOOOOOCOCOCO oO 
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1 2 3 AP = ecorens of the secondary boot parameter block alla VMB 
: 1 8 3 SP_ = current stack pointer 
: ! : PRS “SCBB = SCB address 
0121 § 
121 40 ; 
} } ‘3 ; this will be the first location in the boot ROM 
121 43° 
00000000 44 -psect $$$$00boot, long 
000 45 ROM_BASE: 
11E° 898 rk rw pon. arte stransfer control to actual code 
83 82° 81 80 bo it of .byte 6 oeyg1,*x82," x83 ;footprint 
00009t¢1 49 -psect ietatbaaiite 3 
0121 550 
815) 551 ROM_START 
0121 552 default displacement,word 


VMB_MICROVAX_I 
yor 70-00 


26 


57 44 


OF 


00 CE 


SCB 


78 
90 


initialization and XDELTA breakpoint 4=-MAR-1984 1 


fle lel el ele lel alate ele ele ele elel el elelelelojlelelelelelelelelelelelelelelelelelelelelelelelelolelelelolealeleio) 


PUP VPP STS SSSI BY BB BY BS BS EWI rononononononononond 


oP oe oP ot ot ot et et et et et et et et et ee Pt ee ee ee hd et et tt 


1 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


1 


D.DQQPP_DP_DP_ PDP DP DPE DEPP VV PVPS VPS USSU SVS USS SVS USES USS SIS TSI ISOS ISIS ISIS ISIS ISIS 


—DOOODOOOOOOCO0OO0 OOOO OOO 0000 09 09 09 09 09 09 09 SI NI NINN NN IPA AAAAAAAOUMIINITIUGT 
SOO NAUN LEWD 9 DOONAN EWN —$ O ODNAU EWN CO OOO NAME WN OOD NAUE WO OOnNO 


we 


10$: moval 


Sete te Se Se Se Se Se 


10-AUG-1984 19:06:06 VAX/VMS Macro V04-00 
15:05 VMBUVAX1.MAR;1 


-sbttl SCB initialization and XDELTA breakpoint 


mtpr #*xf ,#pr$_mcesr ireset any machine checks 


setup SCB for the duration of this execution 


movab k_scb_addr+1024-k_rom_code_addr(sp) ,r7 

address scb plus two pages 
;setloop count DIV 2 
§ ;address general error routine 


movzbl #2 


55.°9 
ug 391.406 se. Het <tr 
opps r9,10$ :continue in loop 
machine_check_continue sinit machine check continue address 
movab machine check getect?! . sinit machine check vector 
scb_a_mcheck(r7) : 


movab write_timeout_int+1,- ;init write timeout vector 
scb awrite timeout(r7); 
mtpr r7,¥pr$_scbb sinsert scb address in PR 


Read the system identification processor register to discover which 
kind of VAX is to be booted. 


;Read the CPU identification 
sprocessor register. 

;Get CPU identification code. 
:Save processor code globally 
zin boot driver desc table 


mfpr #pr$_sid,r8 


ashl #-pr$v_sid_type,r8,r8 
movb r8,exe$gb_cputype 


If the DEBUG flag is defined (meaning that XDELTA has been Linked 
with this primary bootstrap), set up 2 XDELTA handlers in the SCB -- 
one for breakpoints and one for tbit traps. Then initialize the 
XDELTA breakpoint table, allocate 3 pages of stack, and, if requested, 
execute a breakpoint before proceeding with the bootstrap. 


if df ,debu 

movab xdtSbreskpoint+!,scb_a_breakpoint(r7) :Set up BPT handler. 

movab xdt$trace_trap+1,scb_a_trace_trap(r7) ;Set up TBIT handler. 

movab ini$brk,xdtSinitial_Break ;Store the initial breakpoint. 

mov | sp.r ;Save current top of stack. 

movab k_secondary_boot_addr-k_rom_code_addr(sp),sp ;Address a sta 
sadd 1 pa e for the S¢B 

bbc #rpb$v_boobpt.r5,nobrk ;If no BP _ requested in the 
sboot flags, just proceed. 


Initial breakpoint. 
Current register status is as follows: 
apts - initial input value 


$s 
- SP value at start of ROM code 
R - address of the SCB 


ck, 
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v01.0-00 SCB initialization and XDELTA breakpoint 4=-MAR-1984 13:15:05 VMBUVAX1.MAR;1 
154 611; R8 - processor identification code 
154 at r R9 - qogtreye 
154 613; R10-FP = initial input_values 
132 eie 3 SP - address of a 3-page stack 
0154 218 : Code following the breakpoint is going to restore SP to its original 
8128 elt ; value. If you want to modify SP in XDELTA, modify R6 instead. 
b18¢ 619 ° 
8122 ° 9 ini$Sbrk:: Debugging breakpoint. 
0154 ° ¢ bpt :Stop in XDELTA. 
0154 624 NOBRK: Proceed with bootstrapping. 
0154 625 mov l r6.sp srestore stack pointer 
0154 626 ~ENDC 


) i 
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} ; é 8 ~sbttl rpb initialization 
} : 9 ; initialize and address the RPB 
154 < 
56 FEOO 9E 0154 : movab k_rpb_addr-k_rom_code_addr(sp),r6 ;address rpb with temp re 
1C A6 b 7D 0159 ° 4 movq re: pbs. booftr (F6) save registers . as it 
Se A6 7D Q15D 5 movqg rpb$l_bootr2(ré) ; 
C Ab > me er 6 § movg rpbst bootr4(ré6) 
10 A6 A 7D Q165 6 mova rice rppst haltpc (r6) isave halt ¢ and PSL 
66 6 dO 0169 638 mov r6 PD poasecre) zaddress of RPB 
AS AF 66 «€OD 1 f 639 mov | ré, boost rpbbas jalso globally 
18 A6 oo 2 1 640 movl ap,rpb$l_fa tcode(ré) zsave halt code 
04 A6 D4 0174 = 641 clrl  rpb$l_restart(ré) jinit header fields 
OC A6 D4 0177 on6 clrl -, rstrtflg(ré) : 
A6 QO1 CE Bi cA 64 mnegl #1,rpb$l_chksum(r6) 
34 AG OOOO'CF SE O17E 644 mova boo$al vector, rpb$l_ iovec (r6) sinsert address of driver 
00 6€ O00 2C Q184 645 movc a0. (sp nit remainder of RPB 
38 A6 = O0D0 8F 0188 646 arose longch-rebst. lovecs2, rpb$l_iovecs2(ré6) 
5B 56 00 0180 647 movl | :set future RPB address 
0080 CB 57 pO 0190 648 mov | ree reps scbb(r11) ssave scbb address in RPB 
0090 CB «28. «90 «20195 ) = 649 movb #ndt$_ub0,rpb$b_confre (r11) sone Qbus on Micro-VAX I. 
00A1 CB 28 930 BIR 029 movb #ndt$_ub0,rpb$b_bootndt(r11) ;Pretend this is UNIBUS. 
019F $36 : 
019F 653 ; init the secondary bootstrap parameter block 
O19F 654 ; 
019F 655 
5C FF2D CF 9E O19F 656 movab second or it ;load its base address 
Oc AC O1 CE Q1A4 657 mnegl #1,vmb$l_lo iy ap) sset pfn data 
10 AC O01 CE Q1A8 658 mnegl #1, evmb$l— hi_pfn(ap) iset pfn data 
O1AC 659 
Q1AC 660 ; 
Bie 661 ; address larger stack and setup free memory pointer 
Siac Ges 
5E 5000 CB 9E OQOIAC 664 15$: movab k_secondary_boot_addr(ri1),sp; address target for 1/0 
01B1 665 sand create a three page stack 
5A 5E DO 0181 666 mov | sp.ri0 :copy to address of free memory 
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memory initialization 4-MAR-1984 1 
-sbttl memory initialization 


THN HHH Hn HMMMMMMMMMnMoOvTowmWwmwWww 


ee ae ae ed od ss dod od = = = 8 = 8 8 8 8 3 8 
=F SOND FO OWS BO F& | MOMOOOMOWWWOWWOOWOL VIVO DL LLL LK PUM ONOLSS 


15$: mnegl +e 


Cee ee ee ew we ew wee w i wiw loo iololeleleleloleloleleleloleleolololeleolaelelololo lo! 


PIPPPIPPSPIPINPIPINPININIPY NPY 


=—OOOORNRMNTNOO-9CI7-U0—--—C 

OOM FS OCOCOMODMoovInne— 
PWWWIWMIWIDIDIDS 2 2 @QOO000 WF FF 18 “HF “11 “VF 
SN 
NMoPoPoNnon — a SO OS OS SO 


PAW O OONOUE WIN" OO 


CAREBEL TESSES AMAR aig" 


: initialize parity memory 
; allocate and init RPB PFN bit map 


ashl + ." »rpbs ah inme (r11) ;set size to 1024 bytes 


mova fr “ma addr(r11 rpbsq.. fnmap+4(ri1) ;set ve *ptn desc addr 

movc to? (sd), 0.rpbsq. pinseotrt ik spin. map_addr(ril) ;init to zeros 

movab b*5$, machi ine_chec = et ere set up continue a ddress 

mov #k_max_memory_pages-1,r9 pe 9g" number of Last memor 

bbs #sitch vV_Qvss,rpb$l_ booteierl :if set console not 

su #512,°9 selse - trol 256K used for QVSS + 
3$: setipl #*x1d-1 slower IPL to allow write timeout 


: sweep all of memory to set parity and establish bit map 


5$: movab nam. _memory,machine_check_continue ;enable machine check 


clrq r set first physical address 
ro page count 


movab rppsl_ memdsc(r11),r8 taddress first yi? descriptor 


clrl (r8) sinit page count fie 
mnegl #1,4(r8) zset very low P 


> write 0's to a page 


page_boundary: 


ashl #9,r°7,r6 scompute page address 


: don't write 0's in the 64k where this code is 


cmpl rii,ré scompare addresses to find out 

bneq 208 sor if not in the 64KB of good memory 

tstl vmb$l_lo_pfn(ap) slow pfn inited? 

bgeq 10$ tbr if yes 

mov ce -yabSl_lo_pintap) insert base of area as lowest PFN 
10$ tstl 4(r8) memory Saas PFN set yet? 

bgeq 15$ zsbr i 

mov ry Acre) insert! this low PFN 


all bits in a register 
n_map_ addrieii). -enable Ly pages 
n_map_addr+4(r i 30f good memory 
n_map_addr+8(r11) ; 
n_map_ raddretacet 


insv rO,r7,# i 

movzbl # $/ ro d page count in r0 

movab (r »€r03,r7 ss ust PFN to Last page te tested 
addl ro rest *Otnent (r11) sadjust good ps page coun 

addl sadjust desc si 

brb f ¢‘ scontinue in - hele 
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725 
; write and then read a single memory page 
loop to check for correct parity and verify contents 


66 «67C 208: clraq (r6) write eyaery to zero 
50 ge 0 mov #k_bus.timeout,r0 sinitialize for error exit 
51 6 D movqg (rB)+,r7 sread memory back for parity detect 
ifirst read checks for page present 
sskip out if not present to nxm_memory 
iskip out on parity error 
* ee bneq nxm_memory :if eql then correct read back 


:if neq then odd case of PROM 
check for page cross 


56 OFF 8F 83 bitw #*xiff,r6 ;page cross? 
EF 208 :b 


bneq r if no, keep going 


try to write a non-zero value and verify that it can be done 


This is to detect pages in ROM's that are all zeros 


SAINISISISIINIINISIIN ISIS SSS 


PIP PPPPIPPIDPPINYIPIPPIPINIDIPIPIPPSNPINIPYIPINININIPININIPIPONIPYNINININPINPIPINYPINPIPINPINIPINONPINPyNyfpononys 
COC90909 09 G9 C0 09. 0 NOD DDD DD DS ITT BB BEEP PPP PPP PPP PPL LEE 
DWDOODODOOA LOM BMW M8 NNN NNN END SESS LL SNMOOCOOCVCVTWWWWo 
PDP PVPS Se PPE EWI 
WOO OOO NAUE WN (OOD NAU EWN O OONOU EWN" OOONO 
>. 


SOOOCOOOCOSOOCOSOSOOCOOCOOOCOSCOOCOCOSOOOOOOOCOCOOCOOOOO OOOO OOOOOOOO 


| 
| 
OFFFFFFC E6 3F 80 movw #63,<1828>-4(r6) swrite memory, page is present 
swith don't cache bit 
OFFFFFFC E6 3F 81 cmpw #63,<1828>-4(r6) sread back correct? 
3B Sil bneq nxm_memory :if neq then some non RAM memory 
FC A6 = B4 clrw  =4(F6) sreset to zero 
| 
19 ; page is written - parity appears correct 
765 ° 
4600 CB 01 57 O01 FO 766 308: insv #1,77,41,k_pfn_map_addr(r11) ;insert bit in PFN map 
Oc AC D5 767 tstl vmb$l_lo_pfn(ap) slow ofn inited? 
9% 1 76 bgeq 338 br if yes 
OC AC Pie 76 mov r7,vmb$l_lo_pfn(ap) insert lowest PFN 
04 AB «OD 770 35$: tstl 4(r8) smemory desc PFN set yet? 
a ¥ 771 bgeq 40$ zor yes 
4 A8 y= § ure mov l r7,4(r8) sinsert this low PFN 
10 AC a 773 40$: mov l r7,vmb$l_hi_pfn(ap) sinsert highest 
68 06 774 incl (r scount in current memory desc 
4C AB D6 78 incl rpb$l_pfncnt(r11) ;count as good page 
(i? : 
ore 3 come here to move to next page 
£90 
781 next_page: 
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a memory initialization 4-MAR-1984 1 5 VMBUVAX1.MAR;1 
9 
FF69 57 01 ss59——s*#F*D acbl r9,#1,°7,page_boundary ; continue until end of memory 
F 5 3 
: § ; restore IPL and setup SCB for booting 
F . 
F § setipl #ipl$_power zreset IPL 
FE82 D4 : 0 clrl machine_check continue ;reset machine check continue addr 
23 00000F 0D 1 ater #Led_memory_ok,#pr$_txdb; set Lights 
§ br begin_boot 
4; 
; come here when a page does not exist 
8 nxm_memory: 
50 cmpl #k_parity.error,r0 sexpected error? 
bneq 208 sparity is ok 


: reset the memory controllers to clear parity error 


51 OF 00 mov | #15,r1 zset loop count of controllers 
52 20001440 8F 00 mov l #msvll_csr_base,r2 saddress base of controlller CSR's 
82 01 B80 108: movw #msvll_csr_parity_enable,(r2)+;blast all possible CSR's 
FA 51 F4 sobgeq r1,10$ zcontinue until done 
dD3.—és«éd1i brb next_page no gpech for PROM needed on parity 
sproblem 


> bus timeout means non existant memory on a read, the page is not present 


; But, page could be PROM memory 


WBWOWWWWIWOODOOWN>r>r rr rrrrroovowvn 


50 08 


Oo 
nwo 


208: cmpl #k_bus.timeout,r0 sexpected error? 
bneq fafal_memory_error sbr if unexpected 


-—-o Won 
nm onn 
-9 o 
Las Tod > 
Oooo 
POPPIN IDPPININIPIDIPINPPIPUPIPIPYIPIPIPIPINIPIPIPIMINMIPIPIPIPIPPONPINPIPNPD 
oouovon 
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: record holes in memory via descriptors 


68 0 tstl (r8) sthis desc in use? 
CA. beql next_page zbr if no, don't move to next 
50 OOFC cB 4 movab <rpb$c_nmemdsc*rpb$c_memdscsiz>+rpb$l_memdsc(r11),r0 

58 D capl r0,r8 overrun area? 

co is bneq next_page br if yes 
_ a C addl erppSc_mendscsiz.ré saddress next memory desc 

6 D4 clrl (r8) ;set count to zero 

B9 «(11 brb next_page : 


$ memory initialization error 
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0200 B29 fatal_memory_error: 


fatal_message 
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begin_boot = start the booting process 

functional description: 

This sequence is entered after the RPB and PFN bitmap are set up. 


ine process of selecting a boot device and type of boot operation starts 
ere. 


inputs: 


r11 = address of the RPB 
ap = address of the secondary parameter block 


4-44-44 AAA AAA ALA AZ 


Da Be Ge Be Be Be Ge Se Se Ge Se Be Oe Se Oe Ss 
+ 


begin_boot: 


G0 Cd Cd CD C9 C9 CdD Cd CO CD00 CD OD 09 CO. CD OD OD CD CD CDCD 


: If the "solicit for secondary bootstrap file’ flag is not set, 
; Just use a predefined file specification. 


03 £0 bbs arpety bblock,=- zsbr if not files-11 boot 
30 ry re $l_Bootr5(r11),- : 
4 25$ ; 
08 €E1 bbc #rpb$v_solict,- sift “solicit” flag is not 
30 AB rp $l_Bootr5(r11),- sset, just use a default file 
13 10$ sspecification. 


To solicit a file name, call a device-independent subroutine that 
writes a prompt string to the console terminal, and then reads the 
user typed file name. ALL device specifications are ignored. 


Bete Ge te Ge 


20 AB ODD pushl rpb$l_bootri(r11) Pass options switch settings 

68 AB OOF pushab peght.t thetrtts :Set address of input buffer. 

27 =—OD pushl #39 ;Set maximum character count. 

FD47 CF OF pushab nameprompt :Set address of prompt string. 
QOOO'CF O04 FB calls #4,boo$readprompt :Prompt and read str "0. 
2B. O11 brb 25$ :Go try to read the file. 


set, use a default file name string. 
ENS 1p YSB007 . 6X8 Howe 
e 


If the solicit boot flag was no 
ver, if the 
name is CLSYSMAINTIDIAGBOOT.EXE. 


t 
Usually, this file name is tsvs 
diagnostic boot flag is set, the 


57 FDO? CF 
04 


mwo 
—n 


10$: pevee vasfile,r7 zAssume SYSBOOT.EXE. 
C 


orppey diag,- :1f the diagnostic flag is not 
30 f Sl _BootrS(ri1),- zset, SYSBOOT is correct. 
57 FDI6 CF 9E movab diagfile,r7 ;Otherwise, use predefined 


WOOO OOOO 00000009 09 09 09 09 09 09 SI SIN NS NIN SSN SODA AAO OS TTT 
DONA UL WIN OOD NA UE WIN OW OONAU EWN @ OC OO NOAU EWN O OONIAUE WN OWOONOULS WW 


iname of diagnostic boot. 


WWIAPOPIPODINIPOPIDINPINYIPINIPYDIPININIADINIPINPIPININININININIPPININPINIPINIPYUPINPINIPYIPIPOPIPYPIPOPUDINPUPIPONPIPUPY 


COT TT HHH HHH HHH HMMM MMMmMMmMMmMmMnoOoCOCCCVCCVTCVUTTCSO 


ELAM OO DMA © COUMUNIPOPIPUNIPUN) — - & & \& C0909 0D C9 0D 0D 0D 0000 


COOOOOCOCOCOCOCOOCOOCOOGOOCOOOOOSOSOOOOSOOCOCOOCOOOOCCOOOOCOOOOOOOO 


0.0900.09 09 09 C9 Gd G0 On 0d 09 09. 0D OD OD OD 09 Od 09 CS Cd Cd 09 09 OD CO CD Cd CD C0 Co GD CD Co 


oO 
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4 00 ; 
? 3; Copy the file name to the RPB. 
4 e 
50 67 QA 4 4 15$: movzbl (r7),r0 Size of name string 
28 Dd 7 905 incl r isInclude the byte count character 
68 AB 67 2 9 9 § movcS 0,(r7),rpb$t_file(r11) ;Move name into RPB 
36 oe ; 9 extzv orpery tops $ -#rp0Ss_topsys - 
50 30 AB 1 908 rpb$l_Bootr5(r11),r0 ;Value of O-F means top Level 
14 909 system directory ‘‘SYSO'' = "'SYSF’' 
09 50 O01 14 910 cmpl r0,#9 30-9? 
3 15 17) =—911 bleq 20$ Branch if yes 
50 , oe 19 818 addl #<<*A/A/>=<“A/9/>-1>,r0 ;Add bias to make A - F 
6D AB 50 80 8 6 a 20$: addb rO,rpb$t_file+5(r11) zForm ‘'SYSn"' 
0330 915 ; 
0320 916 ; extract and stabilize device name info 
ae 
57. FDID CF 9E 0320 919 258: movab boot _device_list,r7 jaddress descriptor List 
7E 1C AB S80AQAOA0 BF CB 0325 920 bicl3 #*x8DA0A0QA0;rpb$(_bootr0(r11),-(sp) ;make name uppercase 
O32E 921 yremove possible parity it 
20 6€ 91 OQO32E 9 é cmpb Asp). a/ / sspecial non-name? 
OE 14 Q331 9 bgtr 35 br if gtr then specific device 
0333 ase 
0333 925; co 
0333 926 ; non-specific device name 
0333 44 ; 
et 928 
6E D4 03 858 clrl (sp) } sspecify non name | 
07 €0 0335 930 bbs #switch_v_disk_boot,- ;br if entire List is to be searched 
10 20 AB 0337 931 rpb$l_bootri(rT1),40$ 
57 FDI1 CF QE O33A O38 movab no disk_boot_device_list,r7;address alternate descriptor List 
09 11 O33F 93 brb 408 continue 
0341 934 
0341 935 ; 
0341 936 ; specific device name 
Ose] 988 
FDD6 CF 6E€ ODO 0341 939 35$: mov (sp),boot_device_name ;save specified name 
03 AE 30 82 back aef subb #*a/6/,3(5p) zreduce unit number 
O3cA ac$ $ 
Bae 945 ; start with first entry in boot device List and try each one until a 
4A 944 ; boot occurs or the List is empty 
034A 945 ; 
4A 208 
67 AB O94 4A 947 40S: clrb rpb$b_slave(r11) ino slave or 
64 AB Bs 4D ac8 clrw rpb$w_unit(r sunit info 
5A 5000 C 5 94 movab k_secondary_boot_addr(r11),r10 ;set nominal load address 
66 AB OSA 9 2 950 movb bd_b_type(r7) ,rpBb$b_devtyp(r11) ;load device type 
of 9 A 951 tstb (sp) sapeg ial non-name? 
1 1 5¢ 326 beql 4 -br if yes, no specific device 
67 6E 18 ' ED 5 95 cmpzv #0,#24,(sp),bd_l_name(r75; compare three characters for equal 
C 12 0363 954 bneq o$ sbr if no match 
04 A? 03 Ag 91 6 955 cmpb (sp), bd_b_high_unit(r7) ;unit in range? 
2 1A 6A 956 bgtr 0$ sor if no 
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memory initialization 4-MAR-"4 5 VMBUVAX1.MAR;1 
04 A7 AE 90 movb (sp),bd_b_high_unit(r7);boot specific unit onl 
64 £98 5 sovebw 35) - robb un ays 4 , 
FDA1 CF 6 g 76 45$: mov l bd_l_name(r7) ,boot_d vice name; build ony device name 
FD9D CF 30 64 1 7 addb3 rpb$w_unit(r1{) #°5/97, dost dev e_name+3; 
OA B74 if isb abd routine(r?)Cr7) | ;use device specific routine 
28 39 E Lbs r0,T00 tbr if success, transfer control 
24 50 ame be #1,70,55$ ssevere or fatal error? 
D sbr if fatal error 
95 D tstb isp) zspecial non-name? 
ls F bneq 5 ibr if specific device 
57 ae: 91 50$: addl\2_ #bd_s_bd,r7 ztry next device 
23 OOO00FOD 8F DA 94 mtpr #led_memory_ok,#pr$_txdb; tell operator 
67 $3 98 tstw bd_l_name(r zis there another? 
ABO 8 43 bneq 408 continue if not end of List 
O39F ; 
8 of ; device data base search done without a match or valid boot device 
039F : 
50 0848 8F 3C¢ Bare movzwl #ss$_devassign,r0 plist end, specific name error 
6— 95 O3A4 tstb (sp) ispecial non-name? 
09 12 O3A6 bneq 5 ibr if specific device 
50 0908 8F 3C O3A8 movzwl #ss$_nosuchdev,r0 list end, generic error 
FD6B CF D4& OQ3AD cirl boot_device_name ino specific name 
8 i 55$: fatal_message zissue error in r0 
0384 
0 
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toy : secondary image in place, transfer control to it 
0384 : 
5E 5000 CB 9E tre 100$: movab  k_secondary_boot_addr(r11),sp ;load fresh sp 
0389 ; 
0389 3; restore SCBB values 
aoe 
23 QOOOOFOF 8F DA 0389 mtpr #led_transfer_control,#pr$_txdb; tell user 
57 4600 (CB 9E 0 co movab=_ k 355 .gddrel0es(ri1) .r7 zaddress scb plus two pages 
59 FF 8F 9A 8 C movzbl #255,F9 ssetloop count DIV 2 
77 ~=06E1"CF ODE C9 110$: moval secondary_scb_int+1,-(r75 ;address general error routine 
F859 =F4 Bace sobgeq r9,110$ zscontinue in loop 
0301 3 
o 1 3; recompute size of bitmap 
D1 1 , 
50 10 AC FD 8F 78 Di 1 ashl gr oe panel hi_pfn(ap),rO0 ;get last valid PFN 
4 AB 50 1 D7 1 addl\3s #1,r »rpb$q_ptnmap(ri1) 3$et size of map in bytes 
14 AC 446 AB D of } mova rpb$q_pfnmap(r11),vmb$q_pfnmap(ap);copy pfnmap desc 
os: % : 
4 ' ; halt system prior to entering secondary boot if requested 
—1 1 . 
09 =sé€éE# —1 1 bbc fr psy halt,- iif peer flags don't call for 
30 ry ee 1 rob \_Bootr$(r11),- shalt, just transfer to new 
0 —5 1 $ bootstrap image. 
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23 OOO00FOS BF DA E6 191% mtpr Feqneole Nott -Spre,tned ;Otherwise, HALT: 
| Soe ED 1015 1208: jmp (r5) sExecute JUMP. 
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gf ] i? ae -sbttl specific device boot subroutines 
EF 19 : prom_boot 
+H ! : functional description: 
EF 1 : This routine tries to boot from a PROM system inage that may be in 
1H : ¢ ; memory. Each bad page 16KB boundary is tested tv see if it 1. readable. 
EF : ; inputs: 
EF 1 8 : r7 = address of the internal boot device description 
ae 3 ri0 = address of the secondary boot's memory 
O3EF 1030 ; rii = RPB address 
beer ! 13 ap = address of the secondary parameter block 
Ne i > outputs: 
3EF 1035 ; r0 = ss$_norom = no rom present, severe error 
Oger 10 $ ; 
ORE 1038 yer 
O3EF 15 § : r0 = 1 if success 
baer 8 : r5 = transfer address 
O3EF 1306 : r7,r11 are preserved 
OSE 10ch 
OSEF Hr prom_boot: 
ae 
Ne ie ; cycle up through memory 
FO23 CF 15*AF 9E EF 1 29 movab b*20$,machine_check_continue; implant for read timeout 
53 D4 «(03F5 1926 clrl r3 initial page address 
18 4600 cB 53 + 3F7 10535 108: bbs r3,k_pfn_map_addr(r11),20$ ;br if that boundary is not bad 
51 09 7 3FD 1054 ashl #9,°3,r1 scompute address 
18 61 B81 0401 1055 cmpw ss (rr 1), #*x18 itry to read that memory 
404 1 2$ may machine chec 
OF 3 404 105 bneq 208 br if not key 
O2DF 3 406 1 28 bsbw ver{fy_boot_block iverify the boot block 
09 50 E9 0409 105 blbc r0,20 zbr if not correct 
toe 1061: 
40C 1 $¢ ; PROM found, boot from it 
toe 4 64 ' 
55 10A1 51 £4©€1 QO40C 1065 addl3)—sr1,16(r1),r5 compute starting address 
tit 106? 
411 1068 ; reset machine state 
aH 1885 
34 AB 45 411 107 clraq rpb$l_iovec(r11) ino driver 
0 413 1 te rsb ;done 


H 1 
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4) 3 
41 1 1858 ; move onto next 16KB boundary 
sp 1a 
FFDO8 53 = 20 poooirr ef F1 0415 1 4 208 acbl #k_max smemory.. -pages-1. -#32,r3,10$; continue until done 
5 BO1A BF 3C Q41F 107 movzwl #s$$_norom ;set severe error code 
FCFO CF 364 Age 1080 clrl  machine_ naa y continue : 
05 0428 1081 rsb 
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++ 
network _boot 


functional description: 
This routine tries to boot from a network device 
inputs: 
r7 = address of the internal boot device description 
ri0 = address of the secondary boot's memory 
rii = RPB address 
ap = address of the secondary parameter block 
outputs: 


r0 = 1 if success 
r5 = transfer address 


Bete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Se Se See 


or 
r0 = ss$_nosuchdey - CSR does not exist - severe 
0 § = ss$_bufferovf - secondary bootstrap does not fit - fatal 
0 = ss$_devinact = device could not be inited - fatal 
0 = ss$_ctrlerr - 1/0 error during operation - fatal 
8 = ss$_devoffline - device is offline - severe 
r7,r11 are preserved 
network_boot: 
0281 30 bsbw validate_csr stest CSR of device 


sreturn implies success 
: boot via the Ethernet 


RAIAAMAAMADODOOOOOVOOVOOOOOVOOVOOOVOOOVOOOOOOWOOwoO 
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52 DE moval wiap) .c¢ zsaddress target for transfer address 
68 oF pushab rpb3t_file(r11) zsaddress to store node name 
28 OF pushab cogrt postr str?) saddress to store node address 
OF pushab (r2) saddress to store transfer address 
00 OF pushab k_pfn_map_addr(r11) address of bit map 


pushab k_secondary_boot_addr(ri1) ;buffer sp 
4 


ce 
movab ss k_ econdary_bootaddr+<16*51 >(r11),r5 ; image load address 


a a a a td a ad ne se as ts sd ss ss st 
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pushab (r image load address 
0000° FB 0446 call #6, boo$downl ine_load itry QNA boot 
55 C1 0448 addl (30) r3,r5 zscompute transfer address 
93 +4 44F blbc r0, sor if not success 
4 C +28 clraq rpb$l_iovec(r11) ino driver 
05 04 10$: rsb ;done 
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functional description: 


transfer address 


ss$_nosuchdev 
ss$_nosuchfile 


ss$_buf ferovf 


ss$_devoffline 
r7,r11 are preserved 
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This routine tries to boot from a disk device 


r7 = address of the internal boot device description 
ri0 = address of the secondary boot's memory 

ri11 = RPB address 

ap = address of the secondary parameter block 


CSR does not exist - severe 

file is not on the volume - fatal 

boot file is not contiguous - fatal 
secondary bootstrap does not fit - fatal 
device could not be inited - fatal 

1/0 error during operation - fatal 
device is offline - severe 


zscheck CSR and return if success 


: move and initialize the disk driver 


rpb$l_iovec(r11),r2 saddress boot driver 


;load move parameter 


(r2)Er2) scall move code 


: try low to high units, removable first, non-removable second 


mask with two sets of 8 bits. The first 8 bits are the available 
disk units and the second 8 
starts with rpb$w_unit to bd_b_high_unit set in each set. 


are the available ‘‘hard’’. The mask 


sno units to search 

sbuild the basic mask 
rl = ;get high 

snumber of units 

plus 
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yO%r70 00 specific device boot subroutines one 1382 19:99:88 VMBUVAX1 .MAR: 1 vo1 
58 01 7 474 119 ashl r8,#1,r8 iform mask 
5858 Oe BTR 1138 dec 4 ; ; t bit 
as r6,r8,r smove to correc 
58 OB 08 8 65 47e 1195 ted yt o* Sduplicete mask — 
1 91 04 1338 cmpb r6,r1 shigh = low = one unit? 
? 12 04 § 119 bneq 10$ sbr if yes, enter search 
94 r ; 1138 clrb r tno soft disk search 
48A 1200 ; 
: 2 ! 3 select a unit from the mask 
48A 1 ; 
» S 0 EA Q48A 1 7 10$: ffs #0,416,r8,r6 sget the unit number 
64 AB 56 03 AB ry 1 82 oicye #*x8 rb, rpbSw_unit(rl) fet unit number, less mask flag 
FC84 CF 64 AB 0 81 rho ! 8 addb #*a/6/,rp $w_Gnit(r11) ,boot_device_name+3; new unit in name 
0c 1208 ; 
rhs } 9 3 now, init that unit on the controller 
498 1211 ° 
52 34 AB 00 0498 1 \§ movl rpb$l_iovec(ri11),r2 saddress boot driver 
51 1€ A2 0 49F 121 movl Saget MATE, FATE EE ED 94 Pick up device init routine 
a the ! 3 beql $ None 
4A5 1 1g 3 
Bee / : ; init the controller and a specific unit 
ee : 19 : it is OK for the unit to be offline but not for the controller to fail 
4A5 1221 ° 
6241 6C FA OQ4A5 1 call (ap), (r2)Cr1] 3do any necessary unit init 
09 50 «EB ie bibs’ 00208 > if uit ie online 
4AC 1225 ; 
rae 1 § 3; If the unit is not online, it is a fatal error if the controller failed. 
O4AC 1228 ° 
0084 8F 30 B1 Q4AC 1 5 cmpw £8 #ss$_devoffline offline? 
6 12 0481 1230 bneq § zbr if no, more fatal error 
21 11 4 ! 1 brb 5$ scontinue with next unit 
485 1 § ; 
ot) \ : 3; controller is up, unit is online, make removable, non-removable tests 
4 ! § t success from the online is: 
485 1 } : #1 unit is online, can't detect hard or soft 
485 1 3 #9 unit is online, hard dis 
rt ! 9 : #25 unit is online, soft disk 
485 1 4¢ . 
0c 56 «6003—Cti«CE et) } {7 208: bbs #3,7r6,30$ zsbr if hard disk mask, try unit 
4B9 1245 ; 
189 ! rk} ; looking for a soft disk - can the controller can tell? 
4B9 1248 ° 
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0650 03 €1 189 ] 49 bbc #3,°0,25$ . If not detectable soft or hard 
4BD 1 3 
ret ! ; looking for a soft disk and the controller can tell 
4BD 1254 ° 
04 50 04 £9 48D 1255 bbs #4,70,30$ br if soft disk flag set, try unit 
1B 1 Q46C1 1 § brb 40$ scontinue in common 
ac8 | 
4¢3 1 38 3; since the controller can't tell, shut off tests in soft mask 
rh: } $9 3 but do this unit anyway 
Bee 1 ° 
58 94 O04C3 1263 258: clrb r8 ino more soft disk tests 
04€5 1264 
Be 1265 ; 
4¢c5 1 § 3; try a boot of this unit 
04¢5 1 ; 
Bees 1 8 
03C0 8F BB O4C5 1 8 30$: ushr #*m<r6,r7,r8,r9> ssave context values 
1F 10 04¢9 1270 sbb boot_disk_unit ttry this unit 
O3CO 8F BA O4CB 1271 pe r #*m<r6,r7,r8,r9> srestore context values 
17 50 €8 OCF 1 ie Lbs ro, zor success 
1350 01 #4=©E—1 0402 127 bbc #1,7r0,50$ sor if fatal error 
0406 1274 scontinue if just severe error 
a. a mar 4 Rape 1275 35$: addl\3 _ #8, r6,r1 sclear bit in both masks 
00 58 51 #++€5 OQ4DA 1276 bbcc ri,r8,40$ shard mask or greater 
00 5@ 56 €E5 pees 1277 40$: bbcc r6,r8,45$ and soft or hard 
58 B65 Bee 1 4 45$: tstw r8 smore units? 
AS 12 O4E4 127 bneq 10$ sbr if yes 
04E6 1280 sexit with error status of last unit 
50 02 88 bce8 1281 bisb #1a1,r0 smake error semi-success 
O4ES 1588 
Q04E9 1 Hn ; fixup name with real booted device and transfer control 
04E9 1285 ; 
O4E9 1 6 
05 O4E9 1 50$: rsb 
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boot _disk_unit 

functional description: 


boot a specific disk unit routine 


1 
E 


This routine tries a boot of a particular disk unit. The device and 
driver are present and veri tied. This routine is used for each unit on 
which a boot is to be tried. RPBSB_UNIT contains the unit information. 


== 


DeabmabmslAslas esl esl esl eslesl asl aslasl asl aslasl es esl esl esas esl esl esl asec aslasl sles eslasl asl esl asl esl esl esl esl esl el esl ol eel esl el ell el el el el al 


inputs: 


r9 = rpb address 
ri0 = address of the secondary boot's memory 
rii = RPB address 
ap = address of the secondary parameter block 


outputs: 


r0 = ss$_success 

r5 = transfer address 
or 
r0 = ss$_nosuchdev CSR does not exits 
ss$_nosuchfile file is not on the volume 
ss$_filnotcntg boot file is not contiguous 
ss$_bufferovf secondary bootstrap does not fit 
ss$_devinact device could not be inited 
ss$_ctrlerr 1/0 error during operation 
ss$_devoffline device is offline 


r10 and rii1 are preserved. 
boot _disk_unit: 


; if RPBSV_BBLOCK is set then read LBN 0 and transfer control to the 


; do forced boot block boot 
; ock. 


bbs orpery tes VER zbr if direct boot block boot 
rpb$l_Bootr5(r11),80$ ; 
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: init the file read cache if this is a FILES-11 boot 

FBDE CF FC19 CF movq file_cache_desc,fil$gq_cache ;reload the descriptor 

1 bneq 108 ; one 

5° bsbw boo$cache_alloc sallocate the cache 

F #ss$_memerr,r zassume no memory | 
$itSoa_cache, tile_cache_desc ;save the descriptor 


50 
FCOS CF FBD 
sbr if cache not allocated 
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v0170-00 boot a specific disk unit routine 4-MAR-1 :05 VMBUVAX1.MAR;1 1) Syme 
A_2h 
; S Call  device-t i $ Bi 
3; Call a device- Eee endent routine, FILSOPENFILE to locate the named Lal 
3 ; Biter os aC) 
9 1 : the cache open is where the drive is mounted so it can fail if there is A_DE 
4 ] ; Mo physical volume A-pt 
FAF4’ 30 2 3 ¢ on bsb ° h :0 he FILEREAD h Ahi 
25 £8 g : , i : pepe oo$cache_open pen yA. LEREAD cache ATNC 
69 AB F QSOF 1 15$: pushab rpbst.. file+1(r11) tAddress of file name string. ALN 
7E 68 AB 9A O05 1 8 movzbl rpbsr. file(ril),-(sp) :Character count of file name. ANC 
7E D4 0516 135 clrl ;Al locate scratch for channel ANC 
518 1 60 and get adr of scratch storage A_S( 
3¢C AB ODF «C0518 «136 pushal he ah tRPB Yields that receive file BOTs 
5iB 1 66 istacistics during OPEN. 
6A OOF 218 $3 pushal (R10) File nender buffer at end of 
0200 CA OF B20 : 65 pushal 512(R10) iIndex’ #1Le header buffer at 
send of m 
10 AE OF 3 3 $$ pushal 18035) Address in n file name desc. 
10 Ag DF B 4 1368 pushal 16(s zAddress of phony channel. 
QOOOO'CF O FB 0527 1369 calls #5 HRlsopentite Call FILREA te ieanee file. 
5E of co B2 C 1370 addl2. #1 :Clean up scratch space 
5B 50 =€8 ; F : 7 blbs r0.boot_file ‘Branch on success. 
5 137 : 
0 1374 : the volume is not a files-11 volume, try boot block booting, if the error 
; ' 76 ; related to a file structure problem 
$35 1377 ° 
08cCO 8F 50 B61 Q5 1 4 55$ cmpw r0,#ss$_filestruct itest for tite structure error code 
19 13 0537 137 beql 808 tbr if that's what it is 
* 0810 8F 33 B1 23? 1380 cmpw r0,#ss$_badfilehdr itest for tite structure error code 
12 13 OS3E 1 81 beql 808 r if that's what it is 
0828 8F 50 B61 0540 1 4 cmpw r0,#ss$_badirectory 4. for tile structure error code 
08 13 0545 1 8 beql  80$ tbr if that's what it is 
0808 8F 0 B61 0547 1384 cmpw r0,#ss$_badchksum itest for file structure error code 
04 13 054c 1385 beql  80$ tbr if that's not what it is 
50 02 CB OQOS5S4E 1 § bisl #1a1,r0 smake non-fatal 
05 224 ! 5 75$: rsb sand go back to caller 
5 1 : 
32 1390 : read LBN 0 as boot block 
33 1399 
58 04 O05 1 38 80$: clrl r8 sblock to. read 
59 1 DO 0554 1394 mov l #1,°9 tsize to 
56 A ? 237 1395 movl r16,r6 :Start ay tree menory 
9088 : A 1 38 bsbw readtite tread the block to R10 
F E9 368 ' $3 bloc zsbr if error 
1399 ; 
2° 1400 ; validate the boot block 
60 1401 ; 
560 1402 
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boot a specific disk unit routine 4-MAR-19 5 VMBUVAX1.MAR;1 
50. O08C2 8F C 60 1403 movzwl #ss$_filestruct!2,r0 set error code, semi-success 
52 03 AA eA 368 1404 movzbl trio) 8 iget offset to secondary id field 
01 AR 1 re 1405 cmpb (r10),# next field a BR instruction 
Fs }é 56D 14 § bneq 5$ zbr if no 
51 6A4 E of 14 movaw (r10)Cr2),r1 saddress next field 
5 ; 14 3 this must be in the same page! 
gy 30 0575 14 bsbw var dTybeot_pteck check boot block 
DB 5 4 278 1410 blbc r0,7 sbr if not a valid block 
58 04 AA 1 0579 1411 rotlL  #16,4(r10),r8 iget secondary image LBN 
59 08 Al D a7 1416 movi  B(r4),r9 iget image size 
5a OC Al «CO s«0582 141 addi. —s- 12(r1$,r10 ;compute load address 
55 10A1 5A 3 586 1713 addl3 sr 10,16¢r1),r5 ;compute transfer address 
42 1 0588 141 brb readin_boot ;boot block is valid, read file 
Bi 
58D 1418 ; File was located successfully. Make sure that the file is contiguous. 
58D 1419 ; The file statistics block is the following: 
O88D 14 ; + + 
b265 1 § 3 H starting LBN H (0 if file not contiguous) 
; H size in blocks H 
058D 1424 t ize in block H 
058D 1425 ; «ss duemmnenececceccccceccns 
BB 103s | 
058D 1428 boot_file: Test for contiguity. 
fo 4 ae 7D 058) 1763 movq A aaah itl ied Get file statistics. 
5 DS 0591 1430 tstl r ;Contiguous file? 
06 12 0593 1431 bneq 60$ iYes, continue. 
mov2w ss$_filnotcntg.r search fatal error 
50 O2AC 8F 3C 0595 143 lL #ss$_fil 0 h fatal 
05 OS9A 143 rsb 
Bb Ite 
$398 1338 3; If the software boot control flags indicate that that transfer 
0598 1437 ; address of the secondary bootstrap is stored in the image file's 
0598 1438 ; header block, read that header block. Otherwise, assume that the 
3 transfer address is simply the Ist byte in the image e. 
0598 1439 : transfer add is simply the Ist byte in the i fil 
sop aay | 
55 SA 00 0598 1466 60$: movl ri0,r5 zAssume no special transfer address. 
06 E1 Q59E 144 bbc erpeey header,- sIf no header requested, 
30 AB 5SAQ 1444 rpb$l_Bootr5(r11),- sthen just branch past header 
C 5A2 1445 readye boot reading code. 
56 A 4 5A 1738 mov l r10,r6 Start of free monory 
59 8 5A6 144 movl ce sHeader is always only 1 block. 
‘ 10 Q5A9 1448 bsbb readfile ;Read header block. 
E 5 5? 5AB 1449 blbc r0,no_fit ibr if error 
58 3¢ D O5AE 1450 movqg rpb$l~fillbn(r11),r8  :R8 = 1st LBN, R9 = block count 
5 7D O5B82 1451 movg r te sR2 = block count, R35 = hdr adr 
sbw oo$image_att Get image attributes 
FA4B' 30 0585 145 bsb boo$ Get i ib 
oh te 
5B8 1455 ; Ri = image header block count : 
3 1328 ; R2 = size of file in blocks excluding symbol table and patch text 
588 «(1458 * 
O0OAO CB «51 00 O58 1289 mov ri,rpb$b_hdrpgcnt(ri1) ;Store image header block count 


: s 
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59 2g 2] cs subl3 ri,r2,r9 sBlocks in image after header block(s) 
5 1 , addl rir 3;LBN of first Block beyond headr block 
51 02 AA C movzwl ihd$w_activoff(r10),r1 ;Get offset to image 
515A CO addL = r'10,r'1 een traeaiee cecter atin’ 
Form transfer vector address. 
55 614A Se movab (r1$Cr101,r5 :Get transfer eadress. 


; Now read in the file. If the file is too large for the remaining 
; memory space, see if the required additional pages are usable. 

; If they are, use them. If not issue a fatal diagnostic and HALT. 
; Registers set up now are the following: 
; R5 transfer address 

: starting LBN of file (after header) 
5 R9 size of file in blocks 

; address of Ist byte in free memory 
; address of the RPB 

; secondary boot argument List 


R8 

R10 

R11 
Pp 


readin_boot: 
14 AC 44 AB) 7D movq rpb$q_pfnmap(r11),vmb$q_pfnmap(ap);setup bitmap desc 
56 «5A mov r40.r8 ‘ : Pout fer for read : 


Will the desired number of blocks fit in the space remaining in the 
pre-tested 64kb of memory? If not, check that the additional pages 
required are usable. If they are, then read it all, otherwise quit. 


eee eal al ab sb Ah Ab dh dh dh ab Ab dh db Ah dh Ah Ab A dh Ah dh Ab dh ah dh ah dh ah ah ah ahead ah eah ish ah ahah al ala ahah al eal eabealealealeaieal 
alah -b-4-h-h 2-4-4 - 3-2-1 - 3-3-2 1-3-3 9-1-3 1-1 - 1-1-1 1-1 Pan ntininininiototoiototatotmtotatotatatetetatat: +) 
ee eee ST ee ee ee ee ee ee ee eS S| —. 
re ealeal eal ealalealealeaseaheasealealeal alate oe Oe oe ee ee ee oe oe oe ee oe ee ot ee ee ee et ee 
9 3 § ~QOODDGD0090000 0000000000000 00 00 00 00 0909 09 SI NINN NII OA AAA AAA 
DIEU ODONANEWN SO OONAU EWN ODO NAU EWN OOO NOUN OOO NOUE WR O 

Se Se Ge Ge te 


OOOO OCOCOOCOOCOCOCOOOCOCOSOCOOOOOOOOCOGOOCOSOSOOOOOOCOOCOOOOOOOCOOOOOOOOOO 


DOS OO 9 99 9S 99 99 S999 99 99 BF NNN INA FF nn oC OOOO sO 


0136 630 bsbw verify_image_memor sverify pages for image 
2F 50 «=—«E9 Loc r0,no. it me J sbr if error ’ 
: Now read the secondary boot code into memory 
: Calls the device-independent bootstrap Q10 routine to read 
5 a file. Divides the file into pieces as large as possible, so 
: that the read is a small number (Like 1) of DMA transfers. 
; Registers: 
: R5 - secondary boot transfer address 
3 R - buffer address a 
; R - logical block number (LBN) 
: R9 - number of blocks in file 
readfile: : ;Read file into eenery. 
57 7F BF QA movzbl #k max io_pages.r7 sAssume maximum transfer size. 
59 ro a cap r7or sMinimize with file size. 
cs oe bleq 10$ sBranch if file larger than 
smaximum transfer size. | 
57 59 00 mov l r9,r7 Set to remaining file size. 


me 3 
56 

5 
0000' CF 


0 


rx 
OVMOW PS MOVINVOW 


—NOSNMO0O0—-OW 


5 
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263 1517 10$: Push arguments for QI0. 
DD 2f 151 pushl rii Push phony channel number. 
po EB 1 pushl #0 Physical read mode. 
C 2k0 1 movzwl #io$_readlblk,-(sp) sRead logical block function. 
DD Fe 1521 pushl Starting LBN. 
9C z 1 ¢ rotl #9,r7,-(sp) Transfer size in bytes. 
DD Fe 1 pushl :Buffer address 
CO O5F8 1524 addl 4(sp),r6 ;Update buffer address. 
CO OS5FC 1525 addl r7,r ;Update LBN. 
FB OQOSFF 15 § calls #6,boo$qio :Call a bootstrap Q10 routine. 
E9 0604 15 blbc r0,50$ :Continue on success. 
te ped? 13 8 subl rt sf Decrement blocks remaining. 
60A 1 botr readfile :Continue if not done. 
060C 1530 
060C 1531 ; 
Bebe 15 ¢ : RO - status 
60C 15335; R5 = secondary boot transfer address 
60C 1534; . - buffer address updates past last byte read 
ti 1535 3; R - LBN updated to block after last block read 
60C 1536; R9 - blocks in file (reduced to number not read) 
60C 1537; 
060C 1538 
060C 1539 30S: 
05 060C 1540 


no_fit: rsb ;Return to caller when done. 


E 2 
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align long 


v01 scb interrupt routines 4-MAR-19 5 VMBUVAX1.MAR;1 (12) 
$ . ! tg we »sbttl scb interrupt routines 
60D 1544 ; ignore _scb_int 
60D 1545 ; 
! rt ; functional description: 
6 p 48 ; This sequence runs via an SCB vectored interrupt. 
60D 1550 : inputs: 
ae 
3 none 
ae RE ae 
3 outputs: 
60D 1555 ; . 
60D 1387 3 none 
60D 1 ; 
$8 18 
60D 1559 
610 1560 
610 1561 
610 1562 


polo lo lola lolelololololololo) 


—— -QDOOOOOOoOo09oo 


ignore_scb_int: 
rei 


Oo 
™~m 


VB _MICROVAX, I 
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+ 
machine _check_detect 
functional description: 


This sequence runs when it is enabled in the machine ghech vector. 
The action is to alter the return address to a value in rl and continue. 


inputs: 


machine check stack 
machine check continue = address of the continuation code or 0 


outputs: 
r0 = machine check code 


Se Oe Be Oe Be He Bs Be Se Se Se Se Se Oe Se Bees 
+ 


-align long 


polololo) 
PARRA AAAAA AA AA AA AA AA AA AAA AAAS 


PORoRonnD 
kk dk dd td td dd 


AL Ah Ab Ab Ab Ab Ab Ab Ab Ab Ab db Ab db bed bedb dbedb bed bebb db db db db ehh db edb eal 
OOO O09 09090909 09 09 09 0909 SII NISSEN NINO OA OOO 


WR = OOD NA UNSW O OO NA UNE OOO NOUE 


MO ON NOD SL PS 


machine_check_detect: 
26 OOOOOOFF BF DA mtpr #*xff,#pr$_mcesr iclear machine check error 

FAF9 CF rf 0 tstl machine. chéck_continue ;change return PC? 

Oo 1 beql 10$ iif eql then no, unexpected 
50 04 AE 00 mov 40s) -r0 .r0 j load secoen 
5E BE C8 addl pop sta 
6—E FAEC CF OD mov l nechine. check _continue, (sp) Bo change return PC 
02 rei continue 
0 10$: fatal_message scbint 


A Pens eee Ry Oa. 
ONO Wao 


~N 
oOo 
~ 


om 


o 
— 
> 
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scb interrupt routines 


++ 
fatal_lerror 


functional description: 


This routine is entered when a fatal error is to be displayed. 

The input code is a standard ss$_ value and it is matched to a text 
string by scanning a table of longword entries. The first work of the 
lLongword is the low word of the ss$ code and the next word is the 


AAO 


displacement to the message text. 
inputs: 


DOOODOOWOVOOCOOOOOO 


r0 = internal error code 


—DOOCVWOCVDOOCOCOWOWOOOO 


outputs: 


Sete Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Se Ge Ge Se Ge See 


1898 | 

Ht } 

1399 : 

8 } 

6 i § 1 

6 16 1 

636 1604 1 

6 ! 5 } 

836 1809 : 
636 16 $ 1 

Be 6 + 1 

gs eh } 
06 6 1ol¢ The boot is abandoned, the registers are restored to 1 

be ? 191? reflect the initial contents and the system is halted. } 
0636 1615 1 

Og ? 1918 fatal_error: : 

9E 0636 1618 movab rom_base,ri1 irecalculate RPB address 1 
AA 063B 1619 bicw  #*xTff,r/1 . 1 
9E 640 1620 movab  <-k_rom_code_addr(r11),r1i; 1 
D4 0645 1621 clrl machine _check_continue ;disable error continue 1 
9E 0649 16 § movab oetegesbase.F1 jaddress sossege desc 1 
CA 064E 16 bicl #3,r0 yremove severity bits 1 
B1 0651 1624 108: cmpw (r{)+,r0 compare code 1 
13 0654 1625 beql 1 zbr if found 1 
B5 0656 16 § tstw (r1)+ ;advance and test for zero offset? 1 
12 0658 16 bneq 10$ continue in not found 1 
11 Bo2A 16 8 brb 208 iif list end then no message 1 
32 065C 1629 158: cvtwl (r1),r0 zfetch displacement from cell 1 
bp 65F 1630 pushl rpb$(_bootr1(r11) Pass options switch settings 1 
C 0662 1631 clrq =(sp) ino read data 1 
9F 0664 16 ¢ pushab (ri)Cr0) saddress of message text 1 
ae | 
rou 19 ; output the header part followed by the input code's message : 

667 1637 — 1 

D ret 16 3 pushl rpb$l_bootri(r11) Pass options switch settings 1 
C A 16 clrq -(sp) setup header 1 
oF 1640 pushab message_header : 1 
FB 1641 calls #4,boo$feadprompt output header 1 
FB 067 1966 calls #4 ppeprescoronpe soutput message 1 
D 067A 164 pushl rpb$| _bootr (r11) 7Pass options switch settings 1 
C 067D 1644 clraq -(sp) output device name 1 
9F O67F 1645 pushab boot_device_name 1 
FB 06 1649 calls #4,bdo$readprompt : ' 
1648 ; 1 

1849 ; reload the input registers : 

1884 i 1 


Von -RISROVAX. I 
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scb interrupt routines 


: 


698 


-MAR- 
208: mov l r base(r11),s jload 
é : moved ty00tsp) es , ‘Vaterdose 
4 mova rpb$l_bootr0(r11),r 


movg rpb$l-bootr2(ri1),r zload ré,r 
movg rpb$l_bootr4(r11) ,r4 sload r4.r 
movi rpb$l“haltcode(r1{) 3p :load halt code 
movq rpb$l"haltpc(ri1),r10 restore PC,PSL 


tload r 1 


— 


1 
1 
1 
1 
1 
1 
1 
H ; halt system, continue will restart the boot 
1 

1 

1 


655 
i 
4 o 3 
é : 

es 25$: —_ Seqrecta, alt Sprd tees pialt processor 
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6AD + 
4 validate_csr - test for present CSR 
v4 functional description: 
AD This routine tests for a device CSR and returns to the caller's caller 
AD if the CSR is not present. The CSR address is calculated from the base 
m4 CSR address and the controller number. 
AD inputs: 
6AD 
AD r7 = boot device descriptor address 
BeAp ri1 = rpb address 


outputs: 


return to caller implies that the device is present 
return to caller's caller with r0 = ss$_devassign+2 


The RPBSL_PHYCSR value is filled in. 
r0,ri are destroyed 


Sete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Gee Gee Ge Se 


a ae a 8 ts ss nt 8 ts 


validate_csr: 
FA6S CF BB'AF QE movab b*10$,machine_check_centinue ;chance machine check addr 
51 06 A7 00 mov | og b.cer irl) FI get csr address 
50 04 clrl cr set present flag 
61 685 0689 tstw (r1) ztest 
FAS9 gf D4 0688 108: clrl machine_check_continue :2ap machine check address 
0 8 6BF tstl r0 3CSR present? 
eae 6C1 beql 20$ continue 
50 084A 8F 3C 06C3 movzwl #ss$_devassign!2,r0 set error but semi-success 
1 8EDO 06C8 po ri pop return to caller 
05 06CB rs ;done 
54 AB 51 + 00 Be 20$: mov l ri,rpb$l_csrphy(r11) save csr address 
23 OOOOOFOE 8F DA 06D eter #led_boot_inprogress,#pr$_txdb; tell operator 
05 06D > rs ; return to caller 


VMB_MICROVAX_I 10-AUG-1984 18:06:04 VAX/VMS Macro V04- 
vor 70-00 scb interrupt routines Prange 984 1 99:88 VMBUVAX1 .MARS 1 ” drs (38) 
D8 1707 ;++ 
D8 1 3 3; unfielded_scb_int 
. \ ; secondary_scb_int 
: } i ; functional description: 
608 1713 ; This routine is executed if an unwanted SCB interrupt occurs during 
re } 13 : booting. An error message is displayed and the system is halted. 
ep 1716 ; inputs: 
re 1718 ; scb interrupt stack 
6D8 1720 ; outputs: 
SDR poy; (UtPuts 
608 17 § ; none 
So8 1784 
20 Ve 5 -align long 
2 4 unfielded_scb_int: 
re Vy $ fatal_message scbint 
re 1 1 secondary_scb_int: 
bee 17 : fatal_message 2ndint 


VF DG ROVAXt 
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EB 1735 ;++ 
: ! § ; verify boot block 
E ; functional description: 
ef 174 : This routine verifyes a rt memory section as a boot block descriptor. 
43 ! ? ; It is used to verify a disk boot block or a ROM id block. 
gee 8 gets. en ; 
éE 1243 ; BB+0: i Vi ni any value } 
4: 1503 : | Low LBN ! High LN 
6E 1708 $e er eacce $¢oeceres peerwsanetecsraeaset 
ef 1586 . + + 
GE 1731 ; BB+(2#n)+0: 1 chk | ki "18 (Hex) | 
re 1738 ; H any value, most Likely, 0 H 
eed 173? ; BB+(2*n) +8: | size in blocks ‘of the inage { 
O6Es 1737 ; BB+(2en)+12: | offset to (oad. i 
Bees 1723 : BB+(2*n)+16: | offset into image to start H 
pees 1761 : BB+(2*n)+20: i sum of the previous three Lw' si 
06E 1796 Fd a a a a a a a 
06E8 1763 ; 
BEE I7EE | tenes 
eee 1798 ; rl = address of the block 
ers 1708 ; outputs: 
06E 135 : rO = true or false 
rt 44 ; ri = original address 
6E 1558 : r2 is destroyed 
BR Hs i 
re 1776 verify_boot_block: 
20 D4 oe 1778 clrl r0 sassume not a valid block 
18 6 B1 Q6EA 177 cmpw (r1),#*x18 3VAX instruction set id? 
¢ 12 Q6ED 1780 bneq 10$ tbr if no 
52 02 Al 1 Q6EF 1781 addb3 ene -strt) £6 sget eet ions} value 
52 2 . 6F4 17 ¢ mcomb r2.r zsones’s complement it 
03 Al 6F7 17 capb r2,3(ri) check ches sum byte 
1 ls FB 1784 bneq 10$ scontinue if no match 
52 OC Al 98 a € FD 1785 addl3 TA 12(r1),r2 scheck other words 
52 Al CO 5 17 § addl (ri§,r2 iget augment to load address 
4aAl 5 »} 7 17 cmpl r2,20(r1) ymatch? 
Q 2 0708 17 : bneq 10$ tbr if no 
6 70D 17 ncl r success 
70F 1790 10$: rsb 


Vie RICROVAX. I 
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! 


++ 
verify_image_memory 
; functional description: 


; This routine checks for mn contiguous pages from the established load 
address. 


i > >_> > | 
woowowowvowvovono 


SOWONA NEW OOO NAU EWN OOO NAOULS Uy 


inputs: 


a = desired toss count 
= target oad Bey 'y 

rig = address of RPB 

ap = boot srpanent Mist 


Sete Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Sete 


verify_image_memory: 


Dt St Si Sp St Se i 


WIRORORORORIRY) @ tt 


MANDO S &£—- SF ONOOOOOOCOCOOCOOOOOCOCOCOoOO 


ab ah ee HS a ee A a ee a wt ts 


50 geet 8F ac 1 movzwl os 5. ufterovt. r0 zset error code 
52 We |, C 1 rotl :PFN for RPB 
52 7F Ag DE 1 moval 137 le sLast PFN : guaranteed to be good 
1 3s (CU 9C 1 rotl pe520 ze 710, ri gotarting BEN for read 
51 59 CO 1 addl r9,ri sLast+1 FN needed to be good 
93 11 1 brb 3 :Zero or more iterations 
0718 BC 52. «€1 16 10$: bbe r2,avmb$q_pfnmap+4 (ap), 4bs° :Branch if cannot 
1 sread the entire secondary boot 
is Se ee 18 30$: aoblss ri, tee ,10$ iCheck the next page 
50 3601 Bb 1 mov 1c correct 
5 20 40$: rsb 


mM 2 
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? 

? 
4 
4 
4 
4 
9 
] 
E 
F 
F 
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g rite. timeout 

; functional description: 

: This sequence runs when a write timeout interrupt occurs. 
inputs: 


PC/PSL are on the stack 
machine check continue = address to continue at or 0 


outputs: 
r0 = error code 


align long 
write_timeout_int: 
mov l machine_check_continue,(sp) ;reset PC 
beql unfielded_scb_int sunexpected error if no continue addr 
noyl #k_bus.timeout,r0 eet code 
re sdone 


.end —- ROM_START 


NOWO 


oo--o 
SOCCCOCCOCOCOCOCOCOCOCOOOOOOOCOOOOOCOO 


SSN NNN 
a a a tt 


2.0000 0000 00 09 00 0900 00 09. 00 09. 00. 00.00 09.09 09. 0D. 0D CD. CD CD CDCDCD 
PRR RRR ESE FWIWWWWWINIWIWIUINOPOPONoPoNononD 


OONAUELS WN 9 OONAUES WIN O ODN 


VMB_MICROVAX_1 
SymBol table 


NDINT 
ADF ILENAME 
UF FEROVF 


zBwrOoVCVoCO@Mmr 
Meee rmmirn —4 
2r-r-<cccD 

oO ~ 

a | 

~" 

cr 

_ 

r 4 

m 


5 


TT 
BD~A~ROUTINE 
BD~B-HIGH_UNIT 

“B-TYPE 
D7L “NAME 


BOOSREADPROMPT 

BOOT_DEVICE_LIST 
BOOT” DEVI CE~NAME 
BOOT"DISK_URIT 
T“FILE 


Q0$C _MOVE 
BQOSL-UNIT_INIT 
“PROM 

TD$K—QNA 


@ 
O-A POW Oo > > 
DDWDVDwWDwDwWwWwVIwUwVwWwwwD 


SOOSOSOO VO] “ONO COUN LOWWOOnvown 
WMOWIL SPOOCOWOLMNWLOOM fFWwDo 


MOPUTOTO 


<< OK 


COOoOCCoCCooOOoooooooe 


forore 
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OOT_INPROGRESS 
MORY_OK 
ANSFER_CONTROL 
E_CHECR_CONTINUE 
E-CHECK_DETECT 
E-BASE 

E- HEADER 
_CSR_BASE 
CSR-PARITY_ENABLE 
RompT 


REtumsanes Trrriri ae 
AOOVCVIIVVMYNVAADVISIoY eoZzr rr 


E 
R 
N 
N 
G 
MESSAG 


T 0 
NETWORK BOOT 
TPA 


E 
RS$O_SID-TYPE 
$_IP 


BOO 
READFILE 
READIN BOOT 


RPBSB_BOOTNDT 
RPBS$B_CONF REG 
RPBSB_DEVTYP 
RPB$B-HORPGCNT 
RPBSB_SLAV 
RPBSC-LENGTH 
RPBSC_MEMDSCSIZ 
RPBSC_NMEMDSC 
RPBSL BASE 
RPB$L-BOOTR 
RPB$L~BOOTR 


VAX/VMS Macro V04-00 


Page 44 
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oooocoo 
Porororonroer 


mSrorr 


DDDDwD 
Oooooo 


XQBC 
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SymBol table 4=-MaR-19 VMBUVAX1.MAR; 1 (19) 
RPBSL_BOOTR VMB$B_SYSTEMID 4 
RPB$L~BOOTR VMBSC"ARGBYTCNT ¢ 
RPBS$L_BOOTR4 VMB$L-CI_HIPFN 

R _BOOTRS VMBSL_FLAGS f 
RPBSL_CHKSUM VMBSL-HI_PFN 1 
RPBSL_CSRPHY VMBSL-LO-PFN C 

RPBS$L~F ILLBN VMB$Q_F ICECACHE 4 
RPBSL_HALTCODE VMB$Q_NODENAME 8 4 
RPBSL_HALTPC VMB$Q~_PFNMAP 14 
PBSL_IOVE VMB$Q_UCODE 3 1¢ 
RPBSL_IOVECSZ VMSFI 0 9° R Og 
RPBSL_MEMD WRITE_TIMEOUT_INT 00000734 R 6 


RPBSL RESTART 
RPBSL~RSTRIFLG 
RPBSL~SCBB 


$CB A-BREAKPOINT 


SCB~A_MCH 


oo 
ror 


SOF SOL" WDWOWOOCOSHBE NH LOVWAHOLWUDL LOO LOO BLOWN FWOOaL 
DD 


ZoooBwD 


ooszr=z 
aa & 


es | 

- 

or 

mm 
SOOO OO FO NWS LUV ON“ [| 9 SMAOVONVA"DOCOOP OLS WOO LWW SWnownonnyd 


ae 
m 
HhnHnnennnnnnnnnnnannnnann 


1SK_BOOT 
5 


B_SCB_INT 
i 


T BLOCK 
GE _MEMORY 


ie | 
n" 


NSOAAPOOOMOOCONIC 


5. 


—mn >o 
OWS WO NWOOMMDO™ 


DDwDwD 
ooooe 
rorofnoerne 
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tome w eta owoaewe oon 


! ;_Psect synopsis H 


PSECT name Allocation PSECT No. Attributes 
. 00000000 ( -») OO ¢ QO.) NOPIC USR CON ABS LCL WOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS$ BA Ono [+ g oe OF 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
$$$$04B00T O00073F <¢ 1855.) ¢ ( ¢°} NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC LONG 
$$$$10B00T QOOO001E9 ¢ 489.) ( 3.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
$$$S$00B00T 00000008 8.) 04 ¢ 4.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC LONG 
qnceceuenenseneeseasneeeet 
! Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 16 00:00:00.08 00:00:00.24 
Command processing 75 00:00:00.55 ee ed RS 
Pass 1 356 bs eS bs Be SE 
Symbol table sort 0 00:00:01.90 00:00:02.02 
Pass 2 291 00:00:04.39 BP +80 208-28 
Symbol table output 21 00:00:00.11 00:00:00.2 
Psect synopsis output 4 00:00:00.03 00:00:00.23 
Cross-reference output 9 00:00:00.00 00:00:00.00 
Assembler run totals 76 00:00:21.08 00:00:30.86 


The york ine set_Limit was 1800 pages. 

85255 bytes (167 pages) of virtual memory were used to buffer the intermediate code. 

There were 70 pages of symbol table gpece at Locate to hold 1184 non-local and 59 local symbols. 
9 source Lines were read in Pass 1, "ain't object records in Pass 2. 

24 pages of virtual memory were used to define 23 macros. 


wer eee en eee ewe eer eee wee eee} 


Macro Library name 
DISKSSTARWORKO3: CGAMACHE .UV1ROM.VMSJLIBUV1.M 6 
DISK$STARWORKO3: CGAMACHE .UV1ROM.OBJJVMB.MLB; 4 
SYSS$SYSROOT: CSYSLIBIST. RLET.MLB;2 6 
TOTALS ‘all libraries) 16 


1209 GETS were required to define 16 macros. 


There were no errors, warnings or information messages. 
MAC/LIS=L1IS$:VMBUVAX1/0BJ=0BJ$:VMBUVAX1 VMB$: VMBUVAX1+0BJ$:VMB/LIB+VMS$:LIBUV1/LIB 
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